home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL11.LIT < prev    next >
Text File  |  1990-01-13  |  2KB  |  31 lines
  1. *[FOSSIL11.LIT]***************************************************************
  2. * Description: Removes support for FOSSIL                                    *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB1.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files: FOSSIL12.LIT,FOSSIL13.LIT                                *
  7. ******************************************************************************
  8. 200 ' $SUBTITLE: 'OpenCom - subroutine to open the communications port'
  9. ' $PAGE
  10. '
  11. '  NAME    -- OpenCom
  12. '
  13. '  INPUTS  --     PARAMETER                    MEANING
  14. '                BaudRate$                  BAUD TO OPEN MODEM
  15. '                Parity$                    PARITY TO OPEN MODEM
  16. '
  17. '  OUTPUTS -- BaudTest!                     BAUD RATE TO SET RS232 AT
  18. '
  19. '  PURPOSE -- To open the communications port.
  20. '
  21.     SUB OpenCom (BaudRate$,Parity$) STATIC
  22.     ON ERROR GOTO 65000
  23.     IF INSTR(Parity$,"N") THEN _
  24.        Parity = 2 : _                                     ' No PARITY
  25.        DataBits = 3 : _                                   ' 8 DATA BITS
  26.        StopBits = 0 _                                     ' 1 STOP BIT
  27.     ELSE Parity = 3 : _                                   ' EVEN PARITY
  28.          DataBits = 2 : _                                 ' 7 DATA BITS
  29.          StopBits = 0                                     ' 1 STOP BIT
  30. 1420 Strng$ = INPUT$(1,3)
  31.